| FailEquals method |
Applies to
TTestCase
Declaration
Procedure FailEquals(expected, actual: string; msg: string = ''; errorAddr :Pointer = nil);
Implementation
procedure TTestCase.FailEquals( expected,
actual :string;
msg :string = '';
errorAddr :Pointer = nil);
begin
Fail(EqualsErrorMessage(expected, actual, msg), errorAddr);
End; |
|
|